home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Merciful 2
/
Merciful - Disc 2.iso
/
software
/
d
/
dustv1.91.lha
/
Dust
/
TheExample.bat
< prev
next >
Wrap
DOS Batch File
|
1995-03-06
|
624b
|
43 lines
;This script creates a plane and applies the function sin(x^2+y^2) to it
;init
set(onlinecalc,t)
set(complete,f)
;parameters
buffer=2
xmin:=-50
xmax:=50
ymin:=-50
ymax:=50
z:=0
xsect:=10
ysect:=10
;doit
xstep=(xmax-xmin)/(xsect-1)
ystep=(ymax-ymin)/(ysect-1)
for(i,0,xsect-2)
x1=xmin+i*xstep
x2=x1+xstep
for(j,0,ysect-2)
y1=ymin+j*ystep
y2=y1+ystep
addface(buffer,x1,y1,z,x2,y1,z,x2,y2,z)
addface(buffer,x1,y1,z,x1,y2,z,x2,y2,z)
end
end
;only for Imagine-users
merge(buffer)
;show the result
set(rotx,138)
set(rotz,330)
set(zoom,1.2)
window(buffer)
;plot the function
func(2,30*sin((x0*x0+y0*y0)/25),0,z)